BIND V02
REXXGDB2dBpSKJINUSERID  3
USERID  
INCLUDE SQLCA
BEGIN DECLARE SECTION
END   DECLARE SECTION
COMMIT
ROLLBACK
EXECUTE IMMEDIATE :sqlG2
PREPARE gacols into :sqldaG2  FROM :sqlG2
PREPARE g2data into :sqldaG2  FROM :sqlG2
DECLARE g2datacur CURSOR FOR g2data
OPEN g2datacur
FETCH g2datacur USING DESCRIPTOR :sqldaG2 
FETCH g2datacur USING DESCRIPTOR :sqldaG2 
CLOSE g2datacur
PREPARE g2form into :sqldaG2  FROM :sqlG2
DECLARE g2formcur CURSOR FOR g2form
OPEN g2formcur
FETCH g2formcur USING DESCRIPTOR :sqldaG2 
FETCH g2formcur USING DESCRIPTOR :sqldaG2 
CLOSE g2formcur
PREPARE g2onerc into :sqldaG2  FROM :sqlG2
DECLARE g2onecur CURSOR FOR g2onerc
OPEN g2onecur
FETCH g2onecur USING DESCRIPTOR :sqldaG2 
CLOSE g2onecur
PREPARE g2blob into :sqldaG2  FROM :sqlG2
DECLARE g2blobcur CURSOR FOR g2blob
OPEN g2blobcur
FETCH g2blobcur INTO :blob:lobi
CLOSE g2blobcur
PREPARE g2clob into :sqldaG2  FROM :sqlG2
DECLARE g2clobcur CURSOR FOR g2clob
OPEN g2clobcur
FETCH g2clobcur INTO :clob:lobi
CLOSE g2clobcur
VALUES CURRENT DATE           INTO :curdate
VALUES CURRENT EXPLAIN SNAPSHOT           INTO :curexplsnap
VALUES CURRENT FUNCTION PATH           INTO :curfuncpath
VALUES CURRENT QUERY OPTIMIZATION           INTO :curqueryopt
VALUES CURRENT SERVER           INTO :curserver
VALUES CURRENT TIME           INTO :curtime
VALUES CURRENT TIMESTAMP           INTO :curtimestamp
VALUES CURRENT TIMEZONE           INTO :curtimezone
VALUES USER           INTO :user
SET CONNECTION :dbname
SET CURRENT EXPLAIN SNAPSHOT :curexplsnap
SET CURRENT PACKAGESET :curpkgset
SET CURRENT QUERY OPTIMIZATION :curqueryopt
PREPARE g2token into :sqldaG2  FROM :sqlG2
PREPARE G2S1 FROM :sqlG2
DECLARE G2C1 CURSOR FOR G2S1
OPEN G2C1
FETCH G2C1                 INTO :halfword
FETCH G2C1                 INTO :halfword:halfwordi
FETCH G2C1                 INTO :fullword
FETCH G2C1                 INTO :fullword:fullwordi
EXECUTE IMMEDIATE :sqlG2
CLOSE G2C1
PREPARE g22htmc into :sqldaG2  FROM :sqlG2
DECLARE g22htmccur CURSOR FOR g22htmc
OPEN g22htmccur
FETCH g22htmccur INTO :clob:lobi
CLOSE g22htmccur
PREPARE g22htmi into :sqldaG2  FROM :sqlG2
DECLARE g22htmicur CURSOR FOR g22htmi
OPEN g22htmicur
FETCH g22htmicur INTO :blob:lobi
CLOSE g22htmicur
PREPARE g22htmn into :sqldaG2  FROM :sqlG2
DECLARE g22htmncur CURSOR FOR g22htmn
OPEN g22htmncur
FETCH g22htmncur USING DESCRIPTOR :sqldaG2 
FETCH g22htmncur USING DESCRIPTOR :sqldaG2 
CLOSE g22htmncur
PREPARE g22html into :sqldaG2  FROM :sqlG2
DECLARE g22htmlcur CURSOR FOR g22html
OPEN g22htmlcur
FETCH g22htmlcur USING DESCRIPTOR :sqldaG2 
FETCH g22htmlcur USING DESCRIPTOR :sqldaG2 
CLOSE g22htmlcur
PREPARE g22htmlb into :sqldaG2  FROM :sqlG2
DECLARE g22htmlbcur CURSOR FOR g22htmlb
OPEN g22htmlbcur
FETCH g22htmlbcur USING DESCRIPTOR :sqldaG2 
FETCH g22htmlbcur USING DESCRIPTOR :sqldaG2 
CLOSE g22htmlbcur
PREPARE g22htmt into :sqldaG2  FROM :sqlG2
DECLARE g22htmtcur CURSOR FOR g22htmt
OPEN g22htmtcur
FETCH g22htmtcur USING DESCRIPTOR :sqldaG2 
FETCH g22htmtcur USING DESCRIPTOR :sqldaG2 
CLOSE g22htmtcur
PREPARE g22htma into :sqldaG2  FROM :sqlG2
DECLARE g22htmacur CURSOR FOR g22htma
OPEN g22htmacur
FETCH g22htmacur USING DESCRIPTOR :sqldaG2 
FETCH g22htmacur USING DESCRIPTOR :sqldaG2 
CLOSE g22htmacur
sqlG2
curdate
curexplsnap
curfuncpath
curqueryopt
curserver
curtime
curtimestamp
curtimezone
dbname
curpkgset
halfword
halfwordi
fullword
fullwordi